home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / complib / to_full_variables.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  684 b   |  28 lines
  1. /* 
  2. ### from primary to full variable ###
  3.  
  4. Input:    vx: primary variable
  5. Output: vf: full window variable (orbit part + function part )
  6.  
  7. Note: output can be in either of the following two coords
  8.     polar_switch:    0: in primary cood 
  9.             1: in secondary coord
  10. */
  11.  
  12. to_full_variables(vf,vx,polar_switch)
  13. int polar_switch;
  14. double vf[],vx[];
  15. {
  16.     int i;
  17.     extern int func_on,var_dim,func_dim,var_dim,full_dim;
  18.     extern double time,*func,*param;
  19.  
  20.     /* get an orbit part of full variable */
  21.     to_window_variables(vf,vx,polar_switch);
  22.     /* get the function part of full variable */
  23.     if(func_on){
  24.         (void) get_func(func,vx,param,time,var_dim);
  25.         for(i=var_dim;i<full_dim;i++) vf[i] = func[i-var_dim];
  26.     }
  27. }
  28.